﻿Public Class BEestadoEvento

#Region "Declaración de variables"

    Private codEstadoEvento As Integer
    Private descripcion As Integer

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pcodEstadoEvento As Object, _
           ByVal pDescripcion As Object)

        Me._codEstadoEvento = pcodEstadoEvento
        Me._descripcion = pDescripcion
    End Sub


    Public Property _codEstadoEvento() As Integer
        Get
            Return Me.codEstadoEvento
        End Get
        Set(ByVal value As Integer)
            Me.codEstadoEvento = value
        End Set
    End Property

    Public Property _descripcion() As String
        Get
            Return Me.descripcion
        End Get
        Set(ByVal value As String)
            Me.descripcion = value
        End Set
    End Property


End Class
